﻿Imports Microsoft.VisualBasic

'Imports Amazon.SimpleEmail
'Imports Amazon.SimpleEmail.Model

Public Class CConfig : Inherits SchemaMikeConnellMinistries.CConfig


#Region "Standard"
    Public Shared Function Layout() As ELayout
        Dim s As String = Config("Layout", "Horizontal")
        Return CType([Enum].Parse(GetType(ELayout), s), ELayout)
    End Function
    Public Shared Function MenuTitle() As String
        Return Config("MenuTitle", "Picasso")
    End Function
#End Region


    'Public Shared Sub SendMail(recipient As String, emailSubject As String, bodyHtml As String)
    '    Dim client As New AmazonSimpleEmailServiceClient("AKIAIXAOAZQLQ35NNKSQ", "AnCvfCBsRYUEuY0Ugj05uTPpbXSCxufDuQ8sD7w4sxXB")

    '    Dim email As New SendEmailRequest
    '    email.Source = "mikeconnellministries@gmail.com"  '//The from email address
    '    email.ReturnPath = "mikeconnellministries@gmail.com" '//The email address for bounces

    '    email.Destination = New Destination()
    '    email.Destination.ToAddresses.Add(recipient)

    '    '//Create Message
    '    Dim subject As New Content(emailSubject)
    '    Dim body As New Body()
    '    body.Html = New Content(bodyHtml)
    '    Dim emailMsg As New Message(subject, body)
    '    email.Message = emailMsg

    '    Dim response = client.SendEmail(email)
    'End Sub



End Class
